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by John Kuhn 


Hi TSers..finally back at it again. I hope to be 

able to get back in the swing of things and start crank- 
ing out some of the articles I have had in mind for so 
long. In upcoming Sinc Times I hope to cover more Aerco 
FD-68 tips, product reviews, and other miscellaneous in- 
formation. I am working on the idea with several other 
members of using the Sinc Times as a clearinghouse of 
Aerco FD-68 tips, tricks, and programming information. 
We may even start a series in the Sinc Times on buying 
the Aerco FD-68 bare board ($50 with EPROM, startup 
disk, and basic manual) on how to assemble, parts lists, 
supply houses, relative prices etc., if there is inter- 
est. (hint, hint...let me know) Our user group has seven 
people that have successfully built and run them. With 
the new option of LKDOS from Larry Kenny...Aerco users 
will finally have full Spectrum compatibility, NMI 
saves, Ramdisking in the extra memory bank, plus full 
Aerco 80 column CP/M use in addition to use of the stan- 
dard Aerco OS. ( See letter from Larry Kenny in this is- 
sue.) You have probably noticed that I normally write 
from the perspective of the T/S 2068 computer, if so 
your are correct. I started out on a ZX-81, loved it, 
and then ended up buying a TS 2068 when they first came 
out. Now I can barely get the time to go back and crank 
up the ZX-81. I have resisted desires to purchase a QL 
(really tough considering the price) only because I am 
not ready to shelve my 2068. Where is this all leading? 
I guess that I am saying that my columns tend to be bi- 
ased toward the 2068 and will probably continue to be 
SO... but you are more than welcome and encouraged to 
send me info/ tidbits on any other Sinclair family сош- 
puters for publications. In the meantime I would like to 
mention a few tidbits of information gleaned from 
various TS sources. 

The SMUG users group has been selling a complete 
set of video tapes from the 2nd annual T/S computerfest. 
Prices are $10 or less for each tape. For further info 
contact SMUG @ PO Box 101, Butler, WI 53007. 

Grey & Clifford computer products now furnish their 
Specterm-64 Terminal software on Aerco and Oliger Disk 
formats. Price $38 including S/H. Supports the 2050 mo- 
dem & Z-SI/O RS232C interface for 300 to 1200 baud usage 
with external modem. Send SASE to Grey & Clifford, PO 
Box 2186, Inglewood, Ca. 90305. Ph# (213) 759-7406 

Rod Gowen of RMG Enterprises has produced a 55+ 
page catalogue that is jam packed with TS goodies. Send 
$3.00 to cover production cost which will include a cou- 
pon for $3.00 reduction on first order (essentially 


free). RMG Enterprises, 1419 1/2 7th street, Oregon 
City, Or 97045. Ph# (503) 655-7484. 
The new address of Novelsoft (Timachine, Artworx, 


etc.) is 35 Candle Liteway, Willowdale, Ontario, Canada, 


M2R 3J5. Ph# (416) 665-0290. 

Want to see а nice looking newsletter done com- 
pletely on a QL with Front Page Extra Desktop Publishing 
Software? Checkout the Detroit Area T/S Newsletter. 
Editor Barry Carter (of T/S telecommunications fame) and 
his colleagues have produced a clean looking informative 
and RLE graphic N/L. Contact Barry for more information 
@ PO Box. 614 Warren , Mi 48090. 


Aerco Users take Note> Keith Watson of the Detriot 
Area T/S Users Group has produced MakeDOS-64. This al- 
lows you to transfer your Zebra OS-64 operating system 
to your Aerco disk and load it into the dock bank for 
full disk usage. It is available exclusively from  RMG 
Enterprises 1519 1/2 7th Street, Oregon City, OR 97045 
for $15 +$2 S/H. It is available on 5 MV M or 3 
1/2" disk format. 

A final note before signing off on this issue: We 
want to see all T/S users at the SUNSTATE TIMEX SINCLAIR 
WINTERFEST held march 7-9 in Orlando Florida. Take that 
winter Florida vacation and be a part of this СопҒег- 
ence. Advance tickets are $5 single or $9 for the Ғап- 
ily. Make checks payable to the Northeast Florida T/S 
Users Group. Official information can be obtained from 
Mary-Lynn Johnson, 249 N. Harden Ave. Orange City, Fl 
32763. The Official Winterfest BBS can be accessed at 
(904) 775-0093. Settings are 8/1/N. 
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ticles on Slternatives to standard 
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AS зілу die-hard fans of the 21917751990 are aware, a 


Number of programming languages have Deen available for these 


achines over the past few years. Although mosi of these are 
өз cul of orint, copies are still available via the usual 
Channels, of ін; быр кез, of from other TIMEX/SINCLAIR 
anthusiasis. 

[own copies of five alternate languages , but this is by 
по seans a comoiele list. The five lanqueges which will be 
covered in this series of articles are: Compiled BASIC, PASCAL, 
FORTH, LOEO, and Extended BASIC. If any readers can supoly 
copies of other larquazes RPL comes to mind) Î will be happy 
to include them in the series. (Because machine language and 
Assesblar have beon covered thoroughly elseware, I will sot be 
covering thea in this series - Author.) 

Before bezinning our discussion of Compiled BASIC for the 
2X81 a short discussion of comcuter languages might be in order. 
Although there are some excepiions, programming languages can be 
broken down into two general catagories - compiled languages, 


and interpreted lanqueges. Both of these general types perfora 


the sase function. That is, ‘hey provide an interface between 
human language syebols (words) and the language Ше computer 


understands (machine language or binary 1s and #5). The 


difference Setween coapiled and interpreted lanquazes is sot 
what they do, tut when they do it. 

Compiled languages convert the human words (source code) 
into binary code (object code) all at once, and all at one tise. 
That is, all of the source code is converled, ami all of the 
conversion is done at one ime. While this conversion takes 
plate any syntax errors are reported. If these errors will 
prevent the object bai from executing, no object code 15 
generated, St run-time, the object code is executed by the CPU 
in its entirety. saa all the source code has been convertad to 
object code, the program runs without any interuptions. 

Interpreted code, on the other hand, is not converted froe 
Source ір object code at one time. Instead, source code 15 
converted to object code af run-tise. In BASIC, this conversion 
taxes plate line-by-line. The line of source code is first 
checked for any syntax errors ‘on the T51990/27481 this check is 
ваба when “he line is entered - another laprovesent over other, 
эзге expensive machines), and then the source code 15 converted 
to object code. After the line is converted il is then run. Now 
do you understand how BASIC got it’s well-deserved reputation 
for being so 5-L-0-* 

If interpreted languages are so slow at run-tise, why 
thea? It is this very check-it-at-run-time approach mich sakes 
BASIC such a good beginner's language. Rather than blow a new 
programmer away with pages of syntax errors, BASIC gives the 
hewcoger a chance to correct his program one error at a tise, 
This is often a more humane approach! 

Ж, so this systea of error checking is great (ог 
чная What about the experienced BASIC programmer who 15 
more interested in speed of program execution than with simple 
error correction? That's where Compiled BASIC comes in. The 
compller program takes the corrected (read that “test run") 
BASIC code and converts it - all at one time - to object code. 
This object code is then executed at run-time. АП at once, 
Quick and clean, down and dirty. 


By тоя you are convinced that eapi led ӘС 15 the wav to 
20, oui а well does if work on the 21817751000? To address 
that quest im, let's test a puts ccapiler cal 
E. ith a à sinplea counting apogee 
КИЕЗ 15 a program first published іп — 1383 by 
Interccacuter, MCODER originally sold for $20, but I bought ay 
used copy for Ж at the Indianapolis TIMEX Coacuterfest! s 
advertised, OR efficiently converts T91009/2Y81 source code 
to hib nie object code. This process 15 siaole and rapid. 
To illustrate, let's use the following BASIC program. 


19 REX SAMPLE BASIC COUNTING PROGRAM 
28 FAST 

39 LET (0 

40 LET C241 

54 ІР 2:99 THEN GOTO 79 


E GT 4 
POINT "CONE" 
E 


This program, when run in standard interpreted BASIC, takes 
37.6 seconds to complete. Жеп the terainal value of C in lire 
58 is changed to 32768, the completion tise is a rather sedate 
4 sinutes 19.3 seconds. After a short 18 second trip through the 
ccapiler, run-time becomes 1.4 and 3.3 seconds respectively! 
That's 66 tiss faster folks! 

This speed is not without it's price, however. The tersinal 
value for C of 32768 was not chosen haphazardly? 22678 is the 
upper liait for all aath which, by the way, is restricted to 
integer &ath. Besides this aathsatical limit, the compiler 
restricts variable and array names to single letters. 

within these restrictions , though, the speed of the 
compiled Code sakes graphics and computations run at dazzling 
speed. Anyone who has the programming savvy to work around the 

iler's liaitations sill be well pleased by the results. 

Next issue - PARTIAL PASCAL by Seaper Software will be 
featured. Until then, keep coding! Send comments, questions, 
and other alternative languages to: 


Edward Snow 
3724 Рзараг Drive 
Orlando, Florida 32812 
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by Bill Fischer 


Now looking back at ву last article in tha SINC TIMES, I 
started fo deal with the subject of a checksum program. Also 
Row if can and should be used in relation with our programing in 
basic or superbasic language. Î will continue with this same 
idea in this issue of my article. Whereas [ would be dealing 
with the checksum program for the 4 computer. However фе to a 
пам area that I as getting into im this issue, which I will 
explain in sore detail later. So I will be instead dealing with 
te checksum program called "CK TYPE" by Stan Leake for the T/S 
. 4368 computer in this issue. 

8s [ mentioned in ay first article that a checksum orograa 
can be used fo aid the individual who is coping a program from a 
aagazine of book of who is developing а program. This 15 in 
respect to the entering the program properly anc can help 
elisata some of the tise spent debugging this prograa. Before | 
Eo any deeper into this subject. I have been so busy that I have 
fot had the tise or a chance № write to the Time № 
Magazine or Stan Leske to obtain their peraission to reproduce 
the checksum program, The program appeared in their May/June 
1397 issue. So aany of you say all ready have recieved this Time 
Design sazazine and you have this article or you could contact 
the Time Design and request a copy of the article. Which aver 
way you should get the program. It will help. 

Жә let us get Баск to what І was talking about before. In 
coping a prograa thal is written in a few lines of basic. There 
is no great amcunt of problem. But when it turns from 9 or 19 
lines to as залу as 75 or 100 it is a great deal harder or Barbe 
impossible, This is nol to say that vou can nol copy it 
correctly but can you be very sure that it is right. With the 
use of a checksum progra@ inconjuction wiih that prograa and 
it's checksum number listing. You will be orefectly sure that 
the program is right and will work as stated. 

Lat me backup a little bit and zo just a little deeper into 
the checksum nusber list. Hera is an exaaple of a program and a 
checksum number listing for the program. I know that it is not a 
big program but it is more for you to see what it will look 
like. 


BASIC Program CHECKSUM No. Listing 
198 LET А-5 и и 1:568 
20 LET 8-10 2:12:82 
39 LET Cz15 3:12:89 
48 LET Oz 8840) /3 4@ :19 : 1437 


SQ PRINT "THE AVERAGE 15°:0 50 : 29 : 2246 


AS you сай see,each line of the orogra@ has it’s own set of 
numbers, which are the number of bytes and the checksum total to 
match that line. Now not all checksum programs provide these 
rumbers in the same order or forsat. 

So from now on. if everyone that sents a program to us to 
put in the Sinc Times would provide us with a working copy of 
the program or a checksum listing for the program we will put 
both the program and listing for it in your article. In ay next 
article I will deal with the checksum program for T/S 1909/1 
computers. Any questions can be directed to se through the Sinc 
Times. 
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Computer enthusiasts have валу interests, Dui the one I Rawe 


+ iS 


ч; - ; n» ер 7 фа өте ұлтар» 
міс te the MOST — enjoyable, instructive, and 


entertaining came into being when I discovered MODEMing. As 
with anything worthwhile if takes some preparation, not io 
sention perspiration and a good bit of frustration! 


If you have a MODEM (anacronya for 
MOdulator-DEMcdulator)that is installed betezen the phone Hine 
and the phone and is connected to the DATA and CONTROL 11955 on 
the computer, you can access the 00010. 


[ts a whole neg ballgase, There are sany, залу Bulletin 
Boards(BBS's}, both local, national and international to which 
you canconnec’ for inforsalion on any number of subjects. Or 
many new friends can be made, and contacted for interesting 
chats. You can list FOR SALE items, join groups having sisilar 
equipaent toyours, or play games, if that’s your hobby! You can 
semd aail Dytomputer through aany services, at rates 
competitive with thePost Office. 


Of course, 
ihe @ajor serivces like CompuServe and The Sourcehave a 
one-time aesership fee and afterward charge for Әемогі 
of tise on-line. The Source also has a siniaua fee of $18a 
month, mile Coamerve only charges for tise used, Sose 
ofthe local boards have also started charging a fee for use 


oftheir facilities, but sost still are free. (They all hint 


thatcontrioutions are accepted and welcome. That is reasonable, 
con-sidering the amounts of time and money invested to provide 
theservice they do!) 


CommSerye kas 
an area devoted о “ORPHANS” like  ourTIMEX/SINCLAIR, 
T-I, EAGLE, and others. There is а TIME%sub-board. The 
only local board, as far as I know, that fas anarea just for 


us T/S users is "The Bus Depot". 


Tow Phillips and I have an interesting 
interchange of RiFGraphics pictures. We each have uploaded 
numerous МЕ files toThe Bus Depot. А150 on that board are 
various other programswhich can be downloaded to T/S 
computers. Тоа is responsible forsost of those. 


A couple of 
years 220,1 developed a music program for the 2868that featured 
some Christmas songs, and demonstrated if at ameeting of the 

АЮ. Tom reweabered it, and since hisdaughter is old 
ancugh now to recognize music, he asked se aboutit, He and I got 
cur computers hooked up through the MODEMS andphone line and I 
transferred the entire proram to his withoutthe loss of a 
single note. That is just one instance of а usefor a MOEN. 
zithout if this would not have been possible. 


Parry Wilson 





Alternative Computer Lanquazes for the 2581 - Partial Pascal 
¿Second in a Series of Five Articles on Alternatives to Standard 
Sinclair BASIC} Author: Edward Siow 


PASCAL was inverted by Nicklaus girth in the 19608 № be 
used as a programming teaching language, PASCAL (named for the 
famcus French mel^essiician Blaise Pascal) wes intended to 
eliainate the sericus faults of BASIC while retaining the ease 
of use for which ЖОС 15 famous. 

Semper Software, the purveyors of Partial Pascal, are quick 
` ta point out that nobody, including theaselves, have figured out 
how to put full standard PASCAL into 15K of wesory. what they 
have done, however, is to fil a very good subset of PASCAL into 
the ШК of mesory commonly available for the 2151/7519, 

Yeu will recall from ay first article of this series that 
BASIC is an interpreted (read that S-L-0-W ) language thal Жез 
^ot lend itself well to structured orogramming. PASCAL, being a 
compiled lancuase, executes quickly. Since PASCAL calls 
labelled procedures: defines variables; incorporates looping 
functions (such as М-Н Е); and has recursion ability, it 
qualifies quite handily as a "structured" prograseing lanquags. 

hat are the advantages of Partial PASCAL over standard 
Sinclair BASIC? 

‘The main advantage of Partial PASCAL comes from the fact 
that if is structured, and can therefore prepare the experienced 
BASIC orograsser, or even the unjaded novice programmer to 
produce professional quality structured code. However, there are 
other advantages to Partial PASCAL besides learning good 
prograsaing techniques. 

Firstly, Partial PASCAL is compiled, and it is faster than 
BASIC. Using the заве counting prograa that was used in ay first 
article on Compiled BASIC, let's see how fast Partial PASCAL 
really 1s. 

To recap, the BASIC prograa was .... 


18 REM SIMPLE COUNTING PROGRAM 
29 FAST 

38 LET C-8 

48 LET CC 

SQ IF C-326/8 THEN GOTO Ж 

60 GOTO 49 

70 PRINT "DONE" 

88 STOP 


The equivalent PASCAL prograa is .... 


PROGRAMS COUNTINGCINPUT ЛАЛ); 
VAR COUNTER: INTEGER; 
BEGIN 
COUNTER S15 
WHILE COUNTER<(32768 00 BEGIN 
COUNTER :-COUNTER+! 
END 
WRITE (097) 
END. 


same на анн нь о ee ee орн — ын 


The ASIT program fares 4 minutes 19,5 seconds bo execute, 
The Partial Pascal progra’ runs about ‘Aree times faster at 
| ainute 34.3 seconds to execute, 

Secondly, Partial PASCAL cowes with a great full screen 
editor to use in constructing your programs. The editor is 
fullfunction, featuring complete cursor sovesent; равецог Хит! 
deleta/inseri lines and characters) prograa printout from the 
editor (without leaving the editor!) save to tape (again 
without leaving the editor!; duplicate lines, and graphic sok, 
heg! For а ainute there [ thought I wes programing on a mir 
frage! | 

Thirdly, Partial PASCAL comes with a very союға ама! 
which is actually a pretty good text on the PASCAL language, as 
sell as a very complete zuide to using Partial PASCAL. 

other great feature of the software is the way in which 
if aarss opiisal use Jf the ever-present ape recorder. In 
Partial PASTAL all ойай to iape is in the fora of files, with 
filenames amd extensions. 4 directory of shat is on tage 15 
available. Since only the compiled ject (machine coge) is 
aesded at mam-fise, lowding a program only takes a fes seconds! 
Unless you have a very large program, the load tise is no faster 
than a disk drive! Also with Partial PASCAL  prograss hich 
exceed the available seaory can be writien, compiled, and cun 
because semory is saved to tame automatically as needed! 

With Partial PASCAL the user can specify the desired output 
devices at run tise just as you would om a professional systes. 
Running your BL TSI uncer Partial PASCAL is the closest you 
can 22% to the feel of a Ousiness-fype computer systes on the 
116619 black box. 

Ck, obviously I like Partial PASCAL. But nothing is 
perfect. Partial PASCAL does have some drawbacks. 

Firstly, Partial РАСА has no floating-point sath 
capability. Like the BASIC compilers we discussed in the first 
articla, Partial PASCAL 15 limited to integer sath. Те 
regainder of a division can be returned by the MOD comsard, 
however, 50 to some erteni this drawback can be programaed 
around. 

Secondly, until the user is familiar with the package, 
Partial PASCAL can be frustrating to use. This is а result of 
the sany bells and whistles the package presents. But, because 
the documentation is so well done, the familiarization period 15 
short. Please do read the manual and follow the exasoles. If you 
apply the learning aids provided with the documentation, you 
will have ao trouble. 

Thirdly, if speed alone is your sain consideration you would 
be better off to buy a BASIC compiler (a la ay first article) 
which will rum over 69 times faster than BASIC, and 15 times 
faster than Partial PASCAL. But if 4 times sore execution speed 
(equivalent to running in Sinclair BASIC FAST mode, but without 
losing the video) is enough for you, you will be happy with 
Partial PASCAL. | 

All in all, I have been very satisfied with the package, 
Although the package is not cheap at $39), il is a quality 
product which has been well developed and is thoroughly 
supported. Even die-hard 2121/751090 fans will admit that these 
gachines Aave ые serious Lisitations, but Partial PASCAL has 
been well designed io saiiaize the 2491/7518 performance a 
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WATER SLOW IN PIPES 


bat Ki = ЭОҚ 
This article is ау first one to sail to any aazazine, 50 


here 2065... | Then, PO = KILE (CHKO EHK) 
A common mechanical engineering problem is computing pres- | А150, L = PDGIFGEHO)EDHREO) 


sure drop, flow rate, pipe diameter, etc., for water 
pipi^g. This article will develop a orograa to deal with 


Such a ргобіга, As writien (see printout), е prograa | Solving for 9, (НҚ = ПАН) } 
сал Se typed іліп a T5190, 2121, 151588, or SW, \ | 


Let K4 = РО КІ Н ОН)) 
The asi common ecuation used is the Haren/Villiass forau- 
la. It is eapirically derived and experience ^as shown it Then, SZ = М ---) Q = ЛЕ) 
produces reliable resulls. Mote, the formula is for waler 
flowing under turbulent comdilions. 

Solving for D, (ЯҘ = РАК} 
Та гаш ist 

Let KS = РАЮ?) 
PD = .8679808 K (199/01 H1 қан ES) F(OHE- 415555) 
| Then, (HRS = К ---) 0 = 61/9) 
Жете: 


PO = Head loss (ft) Solving for C, KL OID 2 (190/C) X2. = KB 


for head loss in psi, Pigs = FOCTL.L) 2.31 
(1998/0 HE2 = КБ ---} 100/C = ОН (ІЛ: K7 


pe 
t+ 


Length of pipe including fittings and vaives (in fi.) 
| and, Û = KT 


e» 
$ 


= Friction factor for Hazon $ dWilliass. This is a 
factor experiaenlally derived for various pipe maler- 
1815. A list appears in the orcgraa. 


$ = Flow rale in XM (Gallons/Minute). 





0 = Pipe 1.0. (Internal diageter), in inches. 


DEMO PLUS. ..voronsoovosnuott eo 3196-30448 
POG НОСОВЕ 5%5%555%5.2..%5..2....,Т721-<Л8бӛф 
DRAGON'S LAIR...F-SU.8P-54...268-5091 
ERAGON" S ҒАТН.;.5.25......,..2.».7681-8540 , 


This formula is based on a fluid having a kinematic 


viscosity of 0,90091216 (ft,HD ser. (1.13 centistokes) GUNG... 2% аа 
оғ 21,5 550 which is the case for water at 58 ер, Те ELSINORE. 4...» B ........г729-6175ж 


viscosity of water varies as such as 109 between 22 and 212 ELSINORE’S 2nd LINE..........725-6122 
FALCONS LAIR: са, о. TARAS 


Deg.F. However, the Haren/Villiams formula is suitable for FINAL FRONTIER. 777-4714% 


Lemperatures between 55 amd 75 Deg.F. FLEA MARKET...... (»sassbahauavsauenébedvibeil 
GRAVEYARD...7A-5P.9P-1A4.M-F..772-7156 
НИЗ НО... 0k oe oso oos 743-9080 
HEATMKIT. „ково а ооо с Ща CPM 
HIPPODROME..9P—12M........... 777-1022 
Ұс .409851)/0H2 and is in ft/sec. HOTEL ШОШО „рева као. УЕ 
| JAX 15Т NOCHANGE............. 7565-309 19 
em po. JAX ON-LIME...... за езт» 1 7357-20906 po 
Velocity head is a measure of velocity pressure and is; KNIGHTS ОЙ CAMELOT..........n P did 2 
LAND OF Of. В re 2ODON 
¥HE2/( 24g) and is in tt. =K INODON OP ID; csere eka to ос eee 1% 
СЕЗБЕ. о Та 
LIQUOR STORU.. 3... es bees код 795 25 
LONE ATARI; eee ee eee ee 
The orogram will compute any one of the four variables (PD, MAC'S МАВМЕЗВ................1769-3954» 
L, C, Q, or D) given the other 3. Also, flow velocity and MOUNT ОСҮМРУ6................ба2-2512 
2227 Ж. МЕТӨНБОННОООр,......:....:....721-0000 
velocity head is computed. ORION NEBULA.. саен снае 777-1295 
| OTHER SIDE..12N-4P..10P-12M. . 743-4977 
PHANTOM'S TOMB.......... ..-..264-1016 
PHANTOM ТОМЕ... с... ао 
REALM ОЕ THE MAGIC MIRRORS...223-1029* 
REALM OF NINE NINJAS.........771-7243 
SAMBATÉ ce oi os as nha rk 395-3054 


Flow Velocity is another isportant factor. It is given dy: 


ҮН 
g = acceleration of gravity = 32 ft./sec H2 
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REM WATER FLOGL 
FEM Ет С.Н. BERRY 
o-zi-307 
Ci. m 
РКІМТ 
ERINT 
PRINT 
ERINT DASE 
ама 
RINT 
RINT 
RINT “ШЕШЕ - со 
RINT 
RINT “1 -- PRE 
234] 
КТТ 
RINT "2 --- TOTAL 
EEE 
PRINT 
PRINT 2 =- С-ЕЯ. 
PRINT 
FRINT "4 -- 
PRINT 
PRINT “5 -- 
PRINT 
PRINT "5 -- REVIEW 
LET К2з1,85 
LET К3--4.,2555 
PRINT 
FRINT “INPUT CHOICE: 
INPUT Я 
GLS 
IF A=1 TREN GOTO 5 
IF Я=2 THEN GOTO 7 
IF A=3 THEN GOTO а 
IF A=4 THEN GOT) 3 
Ir Я=5 THEN GOTO 1 
IF A=6 THEN GOTO а 
E за 
REM COMPUTE PD 
GOSUB 22380 
GOSUB 3130 
О-В оза 
GOSUB 54209 
GOÜSUB 3478 
GOSUB 366a 
GíGÜ0SUB 530 
GOSUB 97390 
GOTO 7080 
REM COMPUTE L 
CLS 
FRINT 
20508 327?0 
GOSUB caog 
GOSUB 9470 
GOSUB 33360 
GOSUB 343a 
GOSUB 95390 
GOSUB 3532 
GOSUB 3730 
GOTO тага 
REM COMPUTE C- FACTOR 
GOSLIB Бара 
GOSUB 91320 
GOSUB 32330 
GOSUB 94828 


LET KisDPs Ц ж (Ожжкр; 
LET KOSKT 


GOSUB 


GOSUBSB 
50508 





2539 


3732 


GOTO 7029 
БЕМ COMPUTE FLOW 


GOSUB 
GOSUB 


2270 
cau 


. 992933 


LET C=100/K7 
36328 


Cr JUI C P 


E yy Cy Cota 


C Cu 


D ON НАЕТ T 


С++ 
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GOOD COSUB 913а 

1000 GOSUB 9410 

1810 GOSUB 9470 

1220 соза 35200 

1830 GOSUB 9720 

1640 GOSUB A530 

1045 GOSUB 9790 

2850 сото 700a 

1189 FEM 5060, ЧЕ ҒАР PIPE IC 

1119 GOSUB egeo 

1120 GOSUB 3270 

1130 POosuUB 947a 

1140 GOSUB 3132 

1150 GOSUB 3349 

1169 GOSUB asra € 

1170 GOSUB 9754 

11529 со5ив A532 

1185 GOSUB 39732 

1198 GOTO 790680 

Бара CLS 

егіз PRINT 

6820 PRINT "IS PRESS. DROP IN ЕТ 

РИМ)“ 

БОЗО INPUT P$ 

6249 IF.P$£-"r" THEN СОТО Size 

6858 IF PX-"N" THEN GOTO Sopa 

6050 PRINT 

6970 PRINT “INPUT PSIviea ҒҒ. 

Sozo INPUT PDP 

6039 LET DPzPDPx2.31 

6180 RETURN 

6138 PRINT 

6148 PRINT “INPUT FT.71802 Fr 

6159 INPUT DP 

616568 RETURN 

729 FEM RESULTS 

701a сіз 

Тага PRINT 

2030 PRINT 

7040 PRINT 

7959 PRINT 

7262 PRINT -FHCTOR © 2 

70780 PRINT i 

тегә PRINT “PIPE ID & ".D 

‚ NH 

7890 PRINT 

7182 PRINT “PIPE L = 

7110 PRINT 

7120 PRINT "FLOW RATE а "4 

;’ СРМ“ 

7130 PRINT 

тте PRINT "PRESS. Crop a гр 

7145 PRINT "(FT.;100 FT." 

“150 LET PDPzDP;2.31 

7160 PRINT 

I2" PRINT "PRESS. DROP = "5 

= 

2175 PRINT “(PS5I71800 FT. 

7180 PRINT 

7190 PRINT “VEL. (FP3) B 

7200 PRINT 

Lean PRINT “VEL. HD. (FT.: = gag 

7220 STOP 

89190 CLS 

8020 PRINT 

8939 PRINT "Аы 

8040 CRINT " 

89580 PRINT 

8060 PRINT "“CEMENT-ASBESTSIS 
140" 5 

8070 PRINT 

80230 PRINT "FIBRE 
140" 

soaa PRINT 

3100 PRINT "BITUMASTIC-EHAHEL 
140" 

0112 PRINT “LINED IRON 05 STEEL" 

3120 PRINT "CENTRIFUGRLL''" 

S130 PRINT "APPLIED" 

8149 PRINT 














t 


31509 FRINT 
5162 PRINT 


8172 PRINT 
aloe PRINT 
3199 PRINT 
М)“ 


8195 INPUT C$ 
z' Y" THEN GOTO 8210 


a200 IF C$ 


“CEMENT -L INED 
-ЧҒЕЕК; CENTRE 
“APPLIED” 


TRON OR 


UGALLY 


“WANT OTHER PIPE 7 iY 


m 


deeées сото зд 


82108 CLS 
S215 PRINT 
822909 PRINT 
LIO. 
8238 PRINT 


3248 PRINT 
3250 PRINT 
110" 
S260 PRINT 
8270 PRINT 
100" 
8280 PRINT 
8290 PRINT 
3300 PRINT 
loc 
8310 PRINT 


8320 PRINT 
8325 PRINT 
loo" 

8359 PRINT 
83535 PRINT 
8337 PRINT 
8240 PRINT 
7N} 

8345 INPUT 


“COPPER, BRASS.LEAD, 


“TIN, OR GLASS PIPE 
AND TUBING" 


“WOOD-STAVE 


“WELDED AND 
“SEAMLESS STEEL" 
“INTERIOR RIUETEO 


“STEEL (NO PROJECTING 
RIVETS)" 


“WROUGHT IRON, 
“CAST IRON" 


“WANT OTHER PIPE 7 (Y 


C$ 
8350 IF C$="Y" THEN GOTO 8360 
8355 GOTO 30 


83608 CLS 
8365 PRINT 
8378 PRINT 
100” 
8389 PRINT 
6400 PRINT 
8418 PRINT 


1 
8420 PRINT 


3430 PRINT 
8442 PRINT 
100" 


8458 PRINT 

8459 PRINT 
129" 

9470 PRINT 


8438 PRINT 
6498 PRINT 
8495 PRINT 
8589 PRINT 
М)" 


8595 INPUT C 


"TRHR-CORTED 

“CAST “IRON” 
"GIRTH-RIUETED 
“STEEL (PROJECTING 
RIVETS IN GIRTH 
SEAMS ONLY)" 


“CONCRETE 


"FULL-RIUETED STEEL 
“(PROJECTING RIVETS 


IN GIRTH AND” 
“HORIZONTAL SEAMS)” 


“WANT OTHER PIPE ? (ү 


~ 


* * 
8510 IF С%-”Ү” THEN GOTO 2515 


8512 CLS 
G 


8515 CLS 
Ӛ517 PRINT 
8520 PRINT 


1 
8530 PRINT 


8548 PRINT 
8550 PRINT 
Р з 
8569 PRINT 
38562 PRINT 


OTO 30 


"UITRIFIED, SPIRAL 


"RIUETED STEEL 
(FLOW WITH LAP)” 


“CORRUGATED STEEL 


8565 PRINT 
8578 PRINT 
ғы." 


“WANT OTHER PIPE 7 iy 


1 


8530 
a590 
деде 
51а 
9908 
9018 
чога 
9030 
9943 


9050 
9067 
9078 
зева 
96590 
9109 


INPUT C$ 
I" ($5 Y^ 
CLS 

GOTO 3e 
REM SUBROUTINES 
CLS 


PRINT 
PRINT 
PRINT “INPUT PIPING HE 

LOSS 


THEN GOTO ze1o 


HO 


77:21500 FT.1* 


INPUT HFF 


RETURN 

CLS 

PRINT 

FRINT 

PRINT "INPUT PIPING HERD 


LOSS (Р5І/19Ә0 FT.)" 
9110 INPUT HFP 
9129 RETURN 
9130 CLS 
9149 PRINT 
9158 PRINT 
9100 PRINT “INPUT TOTAL EQUIVALE 


NT LENGTH OFPIPING, 
LUES AND” 
9178 PRINT "FITTINGS 


9183 


INCLUDING UA 


(IN FES Ts 
INPUT L 


9198 RETURN 

9270 CLS 

9275 PRINT 

S277 PRINT 

9280 PRINT “INPUT C-FACTOR" 


9285 


INPUT C 


239 RETURN 
9538 REM FLOU RATE 
9348 CLS 
9550 PRINT 
93508 PRINT 


9378 PRINT “INPUT FLOW RATE 


ees 
9338 


(GPM 
INPUT 89 


9399 RETURN 
$408 REM PIPE ID 
9410 CLS 

9420 PRINT 

9438 PRINT 


9440 PRINT “INPUT PIPE І.Б. 
HES)” 


9450 


(INC 
INPUT D 


9460 RETURN 


9470 


REM K1 


тете LET K1=. 002083¥ ( (1808/0) &«K2 


9490 RETURN 
9590 REM K4 
9510 LET K4-DP/(K1sxLsx(DxzK3)9) 
9528 RETURN 


9538 


РЕМ KS 


9540 LET К5=ОР/ (КТ + (844K 2} } 
9559 RETURN 
9568 REM Кб 


9579 


(ЕТ Кб-(109/С) ғұкг 


9588 RETURN 
9598 REM К? 
95690 LET K7zK6zz(1/;1.85) 


9610 


RETURN 


S638 REM VELOCITY 

S640 LET V=.4885407 (0+0) 

S658 RETURN 

9660 REM SOLVE DP 

9670 LET DPZK1sLs (QusKO) + (D 4K.2) 
968@ RETURN 

9539 REM SOLVE L 


9700 
) ) 


СЕТ L=DPv(K14(Q##K2: + (С++КЗ 


97190 RETURN 
9720 REM SOLVE 9 
9730 LET 9=К4++(1/кК2) 
9740 RETURN 

750 REM SOLVE D 


976590 LET O=K5#4(1/7K3) 
9770 RETURN 

9730 FEM VELOCITY HERD 
9308 LET Чн=0 +0 764.4 
9810 RETURN 
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side up (the chips and connector toward the 


table) with the 


Zebra 
with 


signal 
at 0- 


the 
can 
779-7743. 


enable 


v* y? ed 


зе 


оп 
Graphics Tablet, which is mapped іп 
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This fix doesn't work 


to the LS244 by jumpering pin 8 of the LS32 
Your questions 


to pin 1 of the 15244. 
would like to know if this fix works 


directed to Steve Wyatt (301) 
the A & J Mikrodrives. 


Finally we can take our new 
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circuit 
refer 


may 
add- 

to 

lines, 

into play. 
and 


low(active) 
the joystick would be 
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Q, 
2 
O 
U 
о 
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add-ons 


This 
Spectrum 


most 
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ә 
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lished relatively simply and without 


t 
I/F would be 


active every time an I/O operation was per- 


formed and A5 wasn't used. 


and A7 


other 
address 


are being brought 
Originally, if I/Oreq was 
A5 was low(inactive), 


enabled. 


resolve 


for 


by Steve Wyatt 
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two more 


SION 


S 
that will 


these conflicts. Understanding the 


isn't necessary, so if you wish, 
Thus the GAMESMATE 


GAMESMATE FIX 
Those who have purchased the GAMESMATE 
Kempston compatable joystick interface 
have noticed conflicts with 


Essentially, 


RINTED WITH PERMI 
A6 and A7, 


- 


due to the minimal decoding techniques used 
by so many of the third party peripherals 


including the GAMESMATE 


such as the AERCO disk interface. 
and 2068. 


FIGURE 1 and make the changes. 


itional parts, 





% 


the 
use 


board with nail polish remover, check your 


connections and you're done. 


connector fingers toward 
1. Cut the trace 
and make 
wirewrap wire 
B to 8, C To C, и то 
the residue from 
You can 


Clean 
epoxy or glue to make sure the jumper wires 


you, and compare the lower right portion of 
the board with figure 


marked with an X in the diagram, 
the five jumpers using thin 


connecting A to A, 
and E to E. 
4 ^ 


1 


then 
jumpered 


Pin 6 is 


re- 
X) run- 
at the 
pins 
ls 
jump- 


By bringing A6 
and В 


effectively 
The first move is 


can 
are jumpered to 


and the output 


to play, we 
marked A 


in 
to cut the trace (marked with the 


ning from pin 6 of the LS32 to pin ! of the 
respectively taken from pin 3 and 
to pin 10 of the same chip. 


finger connectors, 
and 2 of the LS32, 


strict the joystick to an I/O-address of 31 
LS244. A6 and A7, 


decimal/1lF hex and below. 


SUNSTATE T/S WINTERFEST '88 
249 М. Harden Ave. 
Orange Citu, FL 32763 


Fellow T/S Users, 


The Sunstate T/S Winterfest '88 will be hosted by four groups 
from around the state of Florida. We have people from 
Jacksonville to Tampa and points between coming together to 
create the Winterfest. ; 


This event will be held March 4,5 and 6, 1988 in Orlando, FL. 
at the beautiful Marriott Hotel. This is a luxury hotel of high 
caliber which is located on International Drive in south 
Orlando. The hotel offers 1,076 guest rooms nestled in 16 
seperate two story buildings including 47 suites. Three heated 
outdoor pools, four lighted tennis courts, a hydrotherapy pool, 
winding jogging paths, plus a childrens plauground is provided 
for your comfort. Four Star dining can be enjoyed in the Grove 
or other fine restarants in the area. The exibihit hall іс 99” 
X 66' with conference rooms across the hall for our other 
scheduled events. The Marriott is located just off Interstate 4 
at exit 29; Sand Lake Road and International Dr. We are 
recieving a special convention rate of $90 single or double, and 
$105 triple or quad occupancy. This makes a $26.25 per night 
rate possible if you share rooms. Remember, this is a LUXURY 
hotel. Several members of the exectutive staff visited the 
hotel a few days ago and it is VERY nice. Please make your 
reservations as soon as possible directlu at the hotel at 
1-305-351-2420. The hotel management has agreed to hold a number 
ОҒ rooms for us, but they must be taken before mid-February. Ве 
sure to ask for the special Sunstate T/S Winterfest rate! First 
night deposit is required. Many other hotel/motels are in the 
immeadiate area. 


Friday night things will get started with a cocktail party 
from 8 P.M. to 11 P.M. There will be a $10.00 charge to cover 
snacks, etc. There will also be a cash bar for those so 
inclined. This will be a great chance to meet the vendors and 
T/S programmers prior to the shou. : 


Saturday morning the show offically opens at 9 A.M. Vendors 
from around the country, along with users group booths will fill 
most of the exhibit hall. However, there will be an area 
dedicated to a swap-meet. Doors will close at 9 P.M. Note: WE 
WILL NOT ALLOW ANY PRE-SHOPPING. This will ensure everyone a 
fair chance to get in on the best deals. 


Sunday the doors open once again at 9 A.M. and will close 
promply at 3 P.M. During the course of the weekend, various 
forums and conferences will be held with various topics and 
speakers. Smaller study groups are encouraged and always 
welcome. 


Pre-registration for the weekend will be $5 for single or $9 
familu. At the door the cover will be 8$ single and $12 family. 
These fees cover all events throughout the weekend with the 
exception of the coctail party Friday night. Please use the 
registration form and make checks payable to: Northeast Florida 
T/S Users Group. 








The following is just a few of the vendors who plan on 
exihibiting: Varity Sales, Clifford & Grey, Zebra Systems, John 
Oliger Co.,Aerco,Quantum Computing, Markel Enterprises, Curry 
Computing, TS-2068 Update, Foote Software, А.Е. В. Software, 
Larken Electronics, Sharps Inc., and Time Designs Magazine. We 
expect more vendors to register every day. Overseas dealers 
(appx. 25) have also been invited. 


Image International Inc. a full service companu has been 
chosen to make your planning easier. Image International will 
make your airline reservations and guarantee the lowest 
airfares. They will be using Delta Airlines, but still will get 
you the lowest fare even if Delta does not service your area. 
They also offer transportation from and to the airport for $18 
per person. Compare this to $17 limo service or $25 taxi fare 
(one way) and you will find this a bargan. Please specify your 
choice of transportation when making your reservations with 
them. Auto rentals are available at reduced rates also. Image 
International has set up a toll free number for out of state 
calls 1—800—351—1350. Florida residents please call 
1-305-351-1340. We at the Sunstate Winterfest 788 feel that you 
will be very pleased with their service. 


The Sunstate T/S BBS is online 24 hrs., 7 daus a week for 
additional information and up to the minute updates. Any 
questions or suggestions are welcome. The BBS is set up at 
8;ізгопе 3@@ baud - call 1-904-775-0993. 


Vendors please contact Steve Berg at 904-737-1538 or 6634 
Oriole Dr., Jacksonville, FL 32216 for dealer registration 
details and shipping information. Users groups are also 
encouraged to participate. 


See you there! 


M. Е. Johnson 

Chairman 

Sunstate T/S Winterfest °88 
249 М. Harden Ave. 

Orange City; FL 32763 


Cut out and mail to the above address 
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Phone: 


Amount enclosed: 


Do you belong to a users group? If so, please 
list: 
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Mail the above section with your check for $12.00 for 
your membership, to N.E.F. T/S USERS at 6634 Oriole Ave. 
Jacksonville,Fla. 32216 
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COMPUTER WAREHOUSE. „оз. осоазеововави осно sS ВОО 
CUNRUY"LAFUINTE. сое осо ив овес аваг овоо з г ВОО 
DISCOUNT ЮОІЗКЕТТЕЗ»»...-е-%6--.-.2-.-..... ВОО 
ООКАТ COMPUTER PRODUCTS. о ооо оос сое оо оо о е ВОО 
G.M. BLANCO & SONS. ІМС... 2...6... ооо оо оь HOO 
GANDEN OF EDEN COMPUTERS. о... оо cssentecns ВОО 
Je SON-RANHE IM COMP PERIFHERALS............ aoo 
E 





342-4600 
25-5200 
621-0707 
662-9253 
251-6671 
848-8199 
252-2265 
926-9515: 
255-8950 
648-3211 
241-8124 
28-1054 
547-1289 
457-0500 
958-8800 
628-5806 
£62-3227 
421-7771 





В 5,2352. BOO 541-2574 
Pent F SO O «эе зоо se - ВОО 544-4554 
МЕ ВЕРЕ ТАГ, ik es о... DOO 295. T3460 
PRISE CU ЗЕЯ... ао ео... BOO 527-(( 67 

" CO А как тжб йаа ны. DOO CITES 
NISECE NOTCH COMP PRODUCTS. 1.209222 000 в 
КИКТЕСИКЕАВ,,555-25595 2. ы 528-2472. 
ВЫ 55 52%5»%%55%5%5555,ҘҘ,.... HOD 221-3160 
F LEBER осела м 251-2274. 
МЕХ RENTAL ее нанс бан а 457-2687 
SWEET ПОМ. ое... сс MOM 257-9528 
ТӨТЕ ЕДЫ ӛз мса 947-5582 
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ALE ISON SOF FWARE 555222, с Воо 64? S604 
ALTERNATE COMFUTER & COMFLETE 

DATA PROCESSING SUPPLIES. а... BOO 2214-2789 
AMERICAN TRAINING INTERNATIONAL..........B00 421-4827 
А BOO ROBART 
BITS & BYTES ЕКЕСТКЕОМІС65...............800 241 5119 
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ККЕ Ва А ВА ССО 4608-8611 
CARDINAL HEALTH SYSTEMS, ІМС.............800 528-0180 
CARDINAL SOFTWARE. 90е cc еее. 600 752-5645 
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БОЕ EOI TEL SaaS a Sasa acs SCG DOO 847-1589 
МИТИ Ре: 
ПИЧКИ КЕ. еен ie OK oo сода. BOO 621-0227 
DELFER CLEC TRONICS. сеъ син cece cs сс BOO 251-8008 
EBSCO CURRICULUM MATERIALS DIV........... 800 655-8265 
ЕЗИТЕМЕН EPP ILC ۹ gg съ осо ое... BOO ВОТ: AAA 
E E RE сока есе вео о саас се сео a оса ВОО Х?і-Заха 
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Pele НЕВА co os oe bee ee а. о. 600 қазсаоват 
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Le IE TWORE SL...» ob wes hace bus cine OO 532-2844 
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РИБКИ ee ЗЕ. ae ee 
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DESTIN 6 6 i avedhasabsoseussücEreceosesecco AISA a 
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и, MAS 
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аа т. 
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GOF ТИЙИБ DIRECT IND. Lioosoovsaentenaesasss 000 25095000 
АЛМ СЫР. ео сое... 2. DOO 637-898" 
TEVEN В. ee re ee. eee, 
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DUNTVENDAE SOFTWARE... dose osocscocevecss BOO 243-6019 
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^00 CUT 
--24959 STOR E O IE зн PE e E ERR RSET 
30888 : 


38818 REMark ЕЕ ЕЕ ЕЕ ЕЕ ЕЕ ЕЕ ЕЕ ЕЕ ЕЕ 
38815 REMark | UNAUTHORIZED DISTRIBUTION IS PROHIBITED i 
30878 REMark i QUANTUM COMPUTING, BOR 1258, DOVER, АЈ, 67881 ; 
38838 REMark 1 (201) 328-8846 ; 
38848 REMark i GNONIX UNIVERSAL SIZE BASE Rev 3.8 i 
38845 REMark |. ПЖ} 969587 Compiled Procedure Version i 
38847 REMark ЕЕ ЕЕ SLES ES ЕЕ 


38858 : 
39868 | 
39878 DEFine PROCadure Yell 


38858 ВЕЕР -5,8,RNOCS TO 254),RNDCI TO 960) ЯЮ0(-7 TO 7) RNO TO 5) 
30859 END DEFine Yell 
38189 : i 


39110 : 
28128 DEFine PRÜOCadure Set 


30139 DIM а ун 25), Y1$(22) араб (2), hr 3), тілі 3) 
39148 POKE d 152900 S:POKE Ш 163992 Ol T¥=PEEK( 163982) 
38168 siariimec8isecciisseccliapafc!'iyf-cPILL $(! £* , 22) 


380178 END ÜEFine Seta 
36189 ; 
38138 DEFine PRÜCadure Тізе 


38288 (5 BORDER EA 1,7:REPeat TheTise:Timexig$- INKEYS(O) IF 490880 NOT а Нота! # :PAPERSÉ S TCLS CR 
ETurn | : 


38218 END DEFine Tise 

30228 | 

38238 DEFine PROCadure Size (Wide) 

38258 IF 1024229 АМО Wide 0200 1Yel LEPRINTES \ Invalid Size Entry!’ ;RETurn 


38258 Set A :ОРЕМЁ! сов: OPEN#2 соп:0РЕМЕЗ, зат 
308270 IF Ту 

380238 d INDOS8,445,35,15, 155 29 INDOUET ,145,155,15 , 0 5150042 ,445,155,15,0 
20299 ELSE VINDOSRE 512,45,9,211 2WINDOVET,512,289,0,0 20 1800482,512,187,9,22 


38308 END IF 
30316 IF Vide-z8 


3632 Р0-01Р1241Р2201Р420 

38554 IF ТҮШОРЕНІ,5сг 236x10a125x152:ELSE ОРЕМЫМ,5сг 235x12a1351207 IEND IF 
39340 LIKED 7: INK EL, BLINK 2,7 

38350 БАРЕ, РӨ: PAPER Рі:РАРЕКЕ2,Р2 


30359 END IF 
30378 IF #142249 


38388 Рӣ-6:Р1=5:Р223:Р4-0 
30330 IF ТИРЕ scr 2531103553152 ELSE OPENBA scr 458x123221288;:END IF 
38488 ІНЕ, ІНЕН ӨТІМ 2,5 


34148 7 PAPER PB PRPEREI ,P1 :PAPERE? ,P2 
38428 END IF 


30438 MODE Wide :CSIZERA,(TV=0 OR (TV)O AND Videz30)) O:CSIZERO,1 0 
30440 BÜRDER&6., 1,188 :BORDER#2 ,2,21 :BORDER#! ,4,235 :BÜRDERIM , 1,7 :CLS:CLSM 


38458 END BEFine Size 





38450: | 
38478 DEFine PRüCedure Кош 


38480 
38430 


38500 — 


38510 
38528 
38528 
jzhr 

22549 
38552 


38558 
38570 
35559 
38538 


2861 

38528 
28628 
28658 


IF CODEC INEEYS(@) )-18@issecritSetTise:60 TQ 
IF са AND sec}@igseccsec 

Yi$-DAiil'. "Ay (S TO 11)&', "ҮНІ TO ОЕ hayil TO 226000! Зара? 
PAPER#S sac, FINE ,7- Caec /8, 5) EAT 4 OO TPRINTÉ YIS 

y$z DATES: sec: "C TQ) ihr$zy$(i13 TO 14) :8in$cy$Ci5 TO 17) 
&in-sin$ihr-chr$-12*inr oi 2 LIF АРУ TO ПӘН — 


38528 


sday=y8(10 TO 11) 


IF seczl:BEEP вїп®4@-5 ,22-8in,;PAUSE itmin/SiBEEP sin®338-2,195+ain .PAUSE 48 

iF in-9 AND ѕег?і AND зес ІРЕЕРІҒОН гіпрсі TO hr PAUSE 77+tring BEEP PAUSE 205r ing*2 
SBEEP- (710218) ,12-ring,hrtringtday, 304dsy-ring,13-ring, (hr-ring)/2 

iF ММКІЛара НІН 5 apal: т 

ІР (hrz8 OR 87-12} AND mini2 IFOR 12350 TO 1148:BEFEP 145,141/49 

IF &inz38 AND seccl:BEEP “19008 72,254 ,81п#5,1,0:РАЦЗЕ 168 


PAUSE 15-(1/80) 


END DEFine Tisex 
38538 ; 
DEFiae PROCedure SetTiga 


rondiciisar 


38559 


СУ РНТАТ АА, You Are About to Set the ПМЕ. К, 

PRINTSS, Hit "M Key to Continue JR’, HIT ESC ta Discontinue...’ 
PAUSE 28:РАЦЗЕ 28:9$- INKEYS( EO, - 1) IF COE (90:227: CLS EG TRETurA 
INPUT ROV V! Year iz! уг Moniki’ !gonV'Day tz! day! ‘Hour (24 HR TIME): 


SOATE yr aon day hrs Rin SEC | 


38678 END DEFine SetTiae 
38586 : 
38538 DEFine PROCedure SavBaze 


38788 


SAVE Size 29999 10 


Base, 


38718 END DEFine SavBase 


16 


ELSE ¥$i13 TO 14 


'Please Enter ALL NUMBERS 4s fequsstad...! 


>ihrs\'Hinutei 2 leja ge 





